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1-008 e-SEP-198e 11:43:86 Felante.eacdorsevree.mans1 29° chy 
-TITLE OISSCYTFP_RS Convert Fleeting to Packed 
~IDENT /1-005/ ; File: OTSCVTFP.MAR Edit: PLL1005 


: 
FERRARA AA ERAT AT EAE A ERAT AERA AAAEAAAAAAAAAAAAARERAAAATAAAAAAERAAAeeE eee 


t® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
:® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH att wn onek 


N OTIC 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 


® ® 
& ® 
& ® 
® * 
® ® 
& ® 
® ® 
o ® 
* ® 
;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
;* TRANSFERRED. . 
oR ® 
® ® 
® ® 
® * 
® * 
® * 
* ® 
® ® 
® ® 
® ® 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


;* CORPORATION. 
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;* DIGITAL ASSUMES NO RESPONS 9 ITY FOR THE USE OR RELIABILITY OF ITS 


IBIL 
0000 ;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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; ABSTRACT: 

; This module contains the routine that converts floating 
; numbers to packed. 
; VERSION: 1 


HISTORY: 


AUTHOR: 
Marty Jack, 14-Mar-1979 


; MODIFIED BY: 
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; FACILITY: LANGUAGE INDEPENDENT SUPPORT 
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-SBTTL HISTORY ; Detailed Current Edit History 
| 


Edit History for Version 1 of OTSCVTFP 


- Original. MLJ 14-Mar-1979 
oe external references PORScA RKR 17-JULY-1979 
ioe angg att, refs rences to FORSCNV_OUT_E to COBSCNVOUT 


Cosmetic changes. RKR 18-OCT-79 
change course name to OTS$ but retain old entry point name. 


1 
§ 
4 
5 


; 


-Jan- 


egg Seah 


0 
0 
0 
0 
0 
0 
0 
0 
00 
00 


0000 


lLoating to Packed 


30 OO 0000 09 00 09 09 09 09 09 09 INI NI NII NNO AAO AOAO 
FW SO ODNAUE WIN HO OONAUES WN OOONOULW 


93 3 
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: INCLUDE FILES 


SOSCDEF 


: EXTERNAL SYMB 
~DSABL 


-EXTRN 
~EXTRN 
-EXTRN 


MACROS: 
NONE 


ba 
DECLARATIONS 


OLS: 
GBL 


OTSSCNVOUT 
LIBSSTOP 
OTS$_FATINTERR 


: PSECT DECLARATIONS: 


-PSECT 


“_OTS$CODE 


t EQUATED SYMBOLS: 
: NONE 


OWN STORAGE: 
NONE 


P=1984 00:23:47 VAX/VMS Macro v04-00 
P=1984 90:93:66 LIBRTL.SRCJOTSCVTFP.MAR; 1 


Prevent undeclared symbols from being 
automatically global 

E-format conversion 

Error halt 

Fatal internal error code 


PIC, SHR, LONG, EXE, NOWRT,- 
USR, CON, REL, LCL, RD 


OTSSCVTFP_RO 
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3 s ae isety 90:93:07 LIBRTL.SRCJOTSCVTFP.MAR; 1 
-SBTTL OTSSCVTFP_RO 


;+4 
FUNCTIONAL DESCRIPTION: 


Converts a floating number to packed. 

CALLING SEQUENCE: 
JSB OTSSCVTFP_RO (scale.rl.v, src.rf.r, dstlen.rl.v, dst.wp.r) 
Arguments are passed in R6, R7, RB and RI. 

INPUT PARAMETERS: 

SCALE.rl.v The power of ten by which the internal 
epeeereet nen of the source must be 
multiplied to scale the same as the 
internal representation of the dest. 

SRC.rf.r The number to be converted 

DSTLEN.rl.v The number of digits in the destination 

IMPLICIT INPUTS: 
ALL of the trap bits in the PSL are assumed off. 
OUTPUT PARAMETERS: 
DOST.wp.r The place to store the converted number 
IMPLICIT OUTPUTS: 
NONE 
FUNCTION VALUE: 
1 = SUCCESS, 0 = FAILURE 
SIDE EFFECTS: 


Destroys registers RO through R9. 


2° #48,SP ; Allocate temp space 
D (R75, (SP) ; Get input number 
: Make a descriptor for the temporary string. 


PUSHAB 8(SP) 
MOVB #OSCSK_ 438 


a Address = space reserved 
MOVB poe DTYP 
MOVW #38,-(SP) 


> Class = static j 
; Data type = ASCII string 
3; Length 


n bytes 


a i a a ad od = 2 8 od do = od = 


DIT ES BS BS BE BE BWW AAI OONNONONONONND 3 3 BOO CO OOOOO 


BALI OOD NA MNES OD NAN EWN OOD NAME WIN 0 OONA UE WIN OOO NAUE WIN O 
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TSSCVTFP_RO ert Floating to Packed 16=SEP=1984 00:23:47 VAX/VMS Macro V04-00 Page 5 ov 
9805 - CVTFP_ 98 ° pate 90:93:64 tTaRT ek REDO TSCVTFP.MAR; 1 . (4)! 1- 
O13 135 ; Call OTSSCNVOUT. 
1F pp 12 : . PUSHL #31 : Digits in fraction 
04 AE F 13 160 PUSHAB 4(SP) 3 pee string coecrtpter 
10 A oF 1 16] PUSHAB 16(SP) ; Number to convert 
00000000 ' GF g Fe 1A 5 CALLS # S  emcetnd 3; Call conversion routine 
29 E 197 : BLBC RO,20$ ; Should never fail 
r 192 ; Convert the exponent and correct for scale factor. | 
6— 02 33 AE 8 9 4 189 , CVTSP fuser? #2,(SP) 3; Make aches gxponent 
H 6 6 A 1 8 CVTPL 3; Make nquord exponen 
6 €1 A646 E ° : H MOVAB me (SP) 1,R6 : forrest * raction Stes and scale 
0 4 ; Convert the fraction to packed. 
“5 10 AE 90 ; 138 : MOVB 16(SP), Vb ; Move sign over *’."’ 
6— iF 12AE 1F Q9 174 CVTSP #31, 18(SP) #31, (SP) ; Make packed fraction 
69 58 47% 56 «FB O45 He ASHP R6,#31, tsps a WO-RB,(R9) : are» fe dont inat ign 
3 so clear 
3 1D 004 133 BVS 10$ ; Branch if overflowed 
06 047 178 INCL - : Indicate success, RO = 1 
5E 8 og nee 180 10$ abete #56,SP ; Delete stack temps 
0040 181; 
744 136 ; Come here on failure of OTSSCNVOUT. This should never happen. 
00000000'8F oD a94p HT: 208: PUSHL #OTS$_FATINTERR ; OTS fatal error message 
00000000'GF 01 FB $033 1% CALLS #1,G*CIBSSTOP : Signal and don't return 
005A 187° END 


OTSSCVTFP_RO Convert Floating to Packed "9-8 atts 9 00:4 :47 
Symbol table ~SEP=1984 11:12:56 
COBSCVTFP_RO RG 02 
soeeette, - annua 
DSCSK-DTYPE_T = E 
LIsssToP ee eee ene x 0 
OTSSCNVOUT eeeeenee § X 
OTSSCVTFP_RO 00000000 RG 2 
OTSS_FATINTERR aeeerese x 

$eeseeteacreszecansen + 

: Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
» 8 « 00000000 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL 
SABSS 00000000 ( 0.) O1¢ 1.) NOPIC USR CON ABS LCL 
_OTSSCODE 0000005A (¢ 90.) 02¢ 2.) PIC USR CON REL LCL 

fees ewe eee seer ren creer econ} 
H Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 
Initialization 29 98:00 :00.93 0:00:00. 38 
ommand processing 112 00:00:00.30 8 08:8 -59 
Pass 134 00:00:01.10 00:00:05.75 
Symbol table sort 0 00:00:00.11 00:00:00.85 
Pass 2 47 Be Sh 00:00:00.91 
Symbol table output 3 00:00:00.01 eee eae 
Psect synopsis output 00:00:00.01 0:00:00.01 
Cross-reference output es Se 00:00:00.00 
Assembler run totals 32 00:00:01.91 00:00:11.70 


Tee working set Limit was 900 pages. 
8391 bytes (17 pages) of virtual memory were used to buffer the intermediate cod 
There were 10 pages of symbol table space allocated to hold 136 non-local and 2 


e. 
local symbols. 
187 source Lines were read in Pass 1, produc ing 10 object records in Pass 2 

mac 


8 pages of virtual memory were used to define ros. 


eee eee oe ee ee eee ee eee ee eee} 


Macro Library name 
~$255$DUA28: CSYSLIBISTARLET.MLB;2 4 
190 GETS were required to define 4 macros. 


There were no errors, warnings or information messages. 
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NOSHR NOEXE NORD NOWRT NOVEC BYTE 
NOSHR EXE RD 
SHR = EXE 


WRT NOVEC BYTE 
RD NOWRT NOVEC LONG 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LISS$:OTSCVTFP/OBJ=OBJS:OTSCVTFP MSRCS:OTSCVTFP/UPDATE=(ENHS:OTSCVTFP) 
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